home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1994 / MacHack 1994.toast / MacHack™ 1987-1994 / MacHack™ '90 / Source Code ƒ.sea / Source Code ƒ / MPW C ƒ / TRUCHTƒ / tile.c / tile.c.rsrc < prev    next >
Encoding:
Text File  |  1990-06-15  |  604 b   |  2 lines  |  [TEXT/MPS ]
  1.     2 R
  2. TEXTMPS b.l ipb+ioNumDone(a6),count
  3.     until#.s eq
  4.     move.l cstream,-(sp)
  5.     jsr compclose
  6.     addq #4,sp
  7.     tst.w d0
  8.     bmi write_err
  9.     lea opb(a6),a0
  10.     _GetFPos
  11.     bne write_err
  12.     move.l opb+ioPosOffset(a6),d0
  13.     sub.l shdr.length(a6),d0
  14.     cmp.l loglen,d0
  15.     bcs @ret
  16.     ;no pain, no gain.
  17.     bsr setoutpos
  18.     move.w #fsFromStart,ipb+ioPosMode(a6)
  19.     clr.l ipb+ioPosOffset(a6)
  20.     lea ipb(a6),a0
  21.     _SetFPos
  22.     bne read_err
  23. @plain    move.l loglen,count
  24.     lea readbuf(a6),a0
  25.     move.l a0,ipb+ioBuffer(a6)
  26.     move.l #readbufsize,ipb+ioByteCount(a6)
  27.     move.w #fsAtMark,ipb+ioP